Sub 부서데이터복사()
'
' 부서데이터복사 매크로
'

'
    Range("B4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$4:$E$47").AutoFilter Field:=1, Criteria1:="인사부"
    Range("C9:E47").Select
    Selection.Copy
    Sheets("인사부").Select
    Range("B3").Select
    ActiveSheet.Paste
    Sheets("sample").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Range("C2").Select
End Sub
